www.gusucode.com > 云网互动影视系统(12套模版和资源联盟) 6.2 > 云网互动影视系统(12套模版和资源联盟) 6.2.4/免费版/Users/Users_Information.asp
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<META content=ywnt,云网互动影视管理系统 name=keywords>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>个人资料</title>
<link href="style/nav.css" rel="stylesheet" type="text/css" />
</head>
<body>
<!--#include file="../conn.asp"-->
<!--#include file="../Function/Function.asp"-->
<!-- #Include File = "../Function/Md5.asp" -->
<!--#include File = "../API/API_Config.asp"-->
<!--#include File = "../API/API_Function.asp"-->
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="100%" valign="top"><table width="690" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="43" background="images/user_top.gif"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="6%"> </td>
<td width="94%">个人资料</td>
</tr>
</table></td>
</tr>
</table><br />
<table width="90%" border="0" align="center" cellpadding="5" cellspacing="0">
<tr>
<td bgcolor="#f7f7f7"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="login">
<tr>
<td><br>
<%Sub EditInformation()
If API_Enable Then
FoundErr = False
ErrMsg = ""
sPE_Items(conAction, 1) = "update"
sPE_Items(conUsername, 1) = NoSqlHack(request.Form("UsersName"))
sPE_Items(conQuestion, 1) = NoSqlHack(Request.Form("question"))
sPE_Items(conAnswer, 1) = NoSqlHack(Request.Form("answer"))
sPE_Items(conEmail, 1) = NoSqlHack(request.Form("email"))
sPE_Items(conTruename, 1) = NoSqlHack(Request.Form("TrueName"))
sPE_Items(conQQ, 1) = NoSqlHack(Request.Form("QQ"))
If createXmlDom Then
prepareXML True
SendPost
If FoundErr Then
ErrMsg = "<li>" & ErrMsg & "</li>"
End If
Else
FoundErr = True
ErrMsg = "<li>目前注册服务不可用! [APIError-XmlDom-Runtime]</li>"
End If
End If
Set Rs=Server.CreateObject(YWNT_TMS_RS)
sql="select * from YWNT_TMS_Users where ID="&NoSqlHack(Request.Form("ID"))
Rs.open sql,Conn,1,3
RS("UsersProblems")=NoSqlHack(Request.Form("question"))
RS("UsersAnswer")=NoSqlHack(Request.Form("answer"))
RS("UsersTrueName")=NoSqlHack(Request.Form("TrueName"))
RS("UsersEmail")=NoSqlHack(Request.Form("email"))
RS("UsersQQ")=NoSqlHack(Request.Form("QQ"))
Rs.Update
Rs.Close
Set Rs = Nothing
call ShowErr("<li>用户资料修改成功</li>","Users_Information.asp",1)
End Sub
Action=Trim(request("Action"))
Select Case Action
Case "EditInformation"
call EditInformation()
Case else
IF Request.Cookies("YWNTUserCookie")("UserName")="" Then
call UsersLogin()
Else
call Information()
End If
End Select
sub Information()
Set Rs=Server.CreateObject(YWNT_TMS_RS)
sql="select ID,UsersName,UsersProblems,UsersAnswer,UsersTrueName,UsersEmail,UsersQQ from YWNT_TMS_Users Where UsersName='"&Request.Cookies("YWNTUserCookie")("UserName")&"'"
Rs.open sql,Conn,1,1
YWNT_TMS_ID=RS("ID")
YWNT_TMS_UsersName=RS("UsersName")
YWNT_TMS_UsersProblems=RS("UsersProblems")
YWNT_TMS_UsersAnswer=RS("UsersAnswer")
YWNT_TMS_UsersTrueName=RS("UsersTrueName")
YWNT_TMS_UsersEmail=RS("UsersEmail")
YWNT_TMS_UsersQQ=RS("UsersQQ")
RS.close
set RS=nothing%>
<script language="javascript" src="js/js.js"></script>
<table width="66%" align="center" cellpadding="0" cellspacing="0">
<form name="form" id="Reg" action="Users_Information.asp?Action=EditInformation" method="post" onSubmit="return Validator.Validate(this,3)">
<tr>
<td width="29%" height="30">用 户 名：</td>
<td colspan="2"><input id="UsersName" readonly="readOnly" size="15" value="<%=YWNT_TMS_UsersName%>" name="UsersName" />
</td>
</tr>
<tr>
<td height="30">真实姓名：</td>
<td colspan="2"><input id="TrueName" size="15" value="<%=YWNT_TMS_UsersTrueName%>" name="TrueName" dataType="Chinese" msg="真实姓名只允许中文"/></td>
</tr>
<tr>
<td height="30">密码提示问题：</td>
<td colspan="2"><input value="<%=YWNT_TMS_UsersProblems%>" name="question" dataType="LimitB" min="6" msg="密码问题不能少于6个字"/></td>
</tr>
<tr>
<td height="30">密码提示答案：</td>
<td colspan="2"><input value="<%=YWNT_TMS_UsersAnswer%>" name="answer" dataType="LimitB" min="6" msg="密码答案不能少于6个字"/></td>
</tr>
<tr>
<td height="30">电子邮箱：</td>
<td colspan="2"><input size="26" value="<%=YWNT_TMS_UsersEmail%>" name="email" dataType="Email" msg="信箱格式不正确"/></td>
</tr>
<tr>
<td height="30">联系Q Q：</td>
<td colspan="2"><input maxlength="20" size="15" value="<%=YWNT_TMS_UsersQQ%>" name="QQ" ataType="QQ" msg="QQ号码不存在"/></td>
</tr>
<tr>
<td colspan="3" height="26"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="29%"> </td>
<td width="71%" height="30"><input name="ID" type="hidden" value="<%= YWNT_TMS_ID %>" />
<input type="image" name="imageField" src="images/qd_06.gif" /></td>
</tr>
</table></td>
</tr>
</form>
</table>
<%end sub%>
<br></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<%call connclose()%>
</body>
</html>